/* LINTLIBRARY */
/*
 * efsendclose.c
 *
 * EFTP Package
 *
 * EfSendClose -- close an eftp channel after sending a file
 *
 * Jeffrey Mogul @ Stanford	12 February 1981
 */

#include <eftp.h>
#include <pupstatus.h>

EfSendClose(Efchan)
struct EftpChan *Efchan;		/* Eftp channel to be closed */
{	/* */
	if (Efchan->ef_mode&EFTPM_SEND == 0) return(EFTP_ERROR);

	pupclose(&Efchan->pchan);

	return(OK);
}